home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).zip / Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).adf / GFA.Beispiel / ANSCHLUSS.LST < prev    next >
File List  |  1992-09-14  |  2KB  |  54 lines
  1. REM  ******************************
  2. REM  *       Anschluss 1.0        *
  3. REM  * zeigt alle angeschlossenen *
  4. REM  * Geräte an.                 *
  5. REM  *    © 1992 by Henry König   *
  6. REM  * Bornheide 71, 2 Hamburg 53 *
  7. REM  ******************************
  8. breite%=640                     ! Screenbreite
  9. hoehe%=256                      ! Screenhöhe
  10. ebenen%=2                       ! 2 Bitplanes
  11. nr%=1                           ! Screen- und Windownummer
  12. OPENS nr%,0,0,breite%,hoehe%,ebenen%,&H8000
  13. OPENW #nr%,0,0,breite%,hoehe%,&H18,&H1800,1
  14. inhalt                          ! alle angeschlossenen Geräte anzeigen
  15. PRINT
  16. PRINT
  17. INPUT "Ende duch Tastendruck";x$
  18. CLOSEW #1
  19. CLOSES 1
  20. END
  21. > PROCEDURE inhalt                ! alle angeschlossenen Geräte anzeigen
  22. root%=LPEEK(_DosBase+34)      ! Zeiger auf das Root-Device
  23. info%=LPEEK(root%+24)*4
  24. devinfo%=LPEEK(info%+4)*4
  25. texte%=LPEEK(devinfo%+40)*4
  26. type&=PEEK(devinfo%+7)
  27. PRINT
  28. PRINT "   Übersicht aller angemeldeten Geräte, Directories und Datenträgernamen"
  29. PRINT STRING$(76,"-")                 ! Überschrift unterstreichen
  30. WHILE devinfo%<>0                     !
  31.   x$=""
  32.   lg%=PEEK(texte%)                    ! Textlänge
  33.   FOR j%=1 TO lg%
  34.     x$=x$+CHR$(PEEK(texte%+j%))       ! Gerätenamen zusammensetzen
  35.   NEXT j%
  36.   PRINT x$;                           ! Gerätenamen anzeigen
  37.   IF type&=0 THEN                     !
  38.     PRINT ":";
  39.     PRINT SPACE$(15-LEN(x$));
  40.     PRINT "Interner Gerätename     ";
  41.   ELSE IF type&=1
  42.     PRINT ":";
  43.     PRINT SPACE$(15-LEN(x$));
  44.     PRINT "Ordnername              ";
  45.   ELSE IF type&=2
  46.     PRINT SPACE$(16-LEN(x$));
  47.     PRINT "Name des Datenträger    ";
  48.   ENDIF
  49.   devinfo%=LPEEK(devinfo%)*4
  50.   texte%=LPEEK(devinfo%+40)*4
  51.   type&=PEEK(devinfo%+7)
  52. WEND
  53. RETURN
  54.